home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / REGISTER.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  996b  |  44 lines
  1. Program Register;
  2.  
  3. Uses Gentypes, Crt;
  4.  
  5. Var Reg:RegisterRec;
  6.     RF:File of RegisterRec;
  7.     S:String;
  8.     Name,Brd:String;
  9.     I:Integer;
  10. Begin
  11.   CheckBreak:=False;
  12.   Clrscr;
  13.   TextAttr:=9;
  14.   Writeln ('ViSiON Registration Creation Utilition Thingy');
  15.   TextAttr:=12;
  16.   Writeln ('Written by: ME');  { Actually THE ELEMENTAL, but fuck you all! }
  17.   Writeln;
  18.   TextAttr:=10;
  19.   Writeln ('Enter SysopName (30 Characters): ');
  20.   TextAttr:=13; Readln (Name);
  21.   TextAttr:=10;
  22.   Writeln ('Enter BoardName: ');
  23.   TextAttr:=13; Readln (Brd);
  24.   TextAttr:=10;
  25.   Writeln ('Enter Serial Number: ');
  26.   TextAttr:=13; Readln (Reg.Serial);
  27.  
  28.   { Now for the Encryption PART! Kiss my Ass!! }
  29.  
  30.   S:=Name;
  31.   For I:=1 to Length(Name) Do
  32.    S[I]:=Chr((Ord(Name[I]) XOR $12) + I);
  33.   Reg.Sysop:=S;
  34.  
  35.   S:=Brd;
  36.   For I:=1 to Length(Brd) Do
  37.    S[I]:=Chr((Ord(Brd[I]) XOR $08) - I);
  38.   Reg.BoardName:=S;
  39.   Assign (RF,'ViSiON.REG');
  40.   Rewrite (RF);
  41.   Write (RF,Reg);
  42.   Close (RF);
  43. End.
  44.